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-Sep-1984 JOBC CONTROL .832;4 
; 1 0001 MODULE CONTROL (ZTITLE ‘Main control logic’ 
° ¢ pos MAIN = JOBCTL 
: 000 IDENT = 'v04=602" 
: 4 0004 dz 
3 5 0005 1 BEGIN 
: 6 Bong 1 
; 7 0007 1! 
: 3 94 MRSS SSSI C STC r rite TT TTT ISTIC TTT T TT TTT TTT TT TiLi titi 
3 0 7 !e ® 
; WwW 0010 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \¢ pore : :* ALL RIGHTS RESERVED. * 
a . ® 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; ¥9 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
H 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: y th : * TRANSFERRED. * 
s '® * 
> i 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; @& 00¢e 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $7 ot : :* CORPORATION. * 
3 '@ ¥ 
: 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; a 0027 1 !« * 
3 a 0028 1 !« * 
3 29 0029 1 Lee RRA AREER ARERR ERA EAE AAA 
; = 0030 1! 
ae 0031 1 
5 mm 0032 1 !++ 
: 33 003 1 ! FACILITY: 
; | 634 0034 1! Job controller. 
3; 0035 1! 
; = 0036 1 ! ABSTRACT: ; ; 
ae 0037 1! This module contains the main control logic. 
: =» 0038 1! 
; 0039 1 ! ENVIRONMENT: 
; 40 0040 1! VAX/VMS user and kernel mode. 
3 41 0041 1 !-- 
s 62 0042 1! 
P 43 004 1 ! AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
; As 0044 1! 
; 45 0045 1 ! MODIFIED BY: 
; & 0046 1! 
3; 67 0047 1! V04-002 JAK0236 _J A Krycka 14-Sep-1984 
; $8 apes . Collect more diagnostic information. 
; & 0050 1! V04-001 JAK0236 J A Krycka 13-Sep-1984 
; 2 0051 1! Set control flags to have the job controller take the abort- 
;- = Bog 1! restart patch instead of the bugcheck patch on encountering a 
3; 33 0053 1! severe (fata) error. 
; 0054 1! 
i 0055 1! V03-012 JAK0230 J A Krycka yt ae , 
>; 0056 1! Conditionally myoese close of the system job queue file on the 
;. oF 0057 1! job controller bug check error path to preserve internal RMS 
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J A Krycka 17-Jul-1984 
JOBCTLDEF .REQ. 
JA Krycka 25-May-1984 


AX=1 
JOBC 


ob controller. 


1 Oi fege te V4.0-742 
TL.SRCJCONTROL .B832;4 


or the time being, bug check on py a severe error 


instead of aborting/restarting the 


V03-009 JAK0213 


K021 J 
Make SENQ/S$DEQ Lock 


A Krycka 18-Ma 
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into severe (fatal) errors. 


V03-008 JAK0299 


JA Krycka 09-May-1984 


A = 
Log diagnostic informacion in the DIAG. TRACE vector. 


V03-007 JAK0206 


Conditionall 


(recreated) 


v03-006 — 


nable image dumps 


request image dump on creating 
din 


J A Krycka 06-May-1984 


tob controller processes depen 
the job controller was initiated with image dump enabled. 


nig iy R. Robert 


06-May-1984 
n or newly created job controller process. 
Also resignal errors so that the last chance handler w 


age 
rrors reported via the JBC$_COMREMJBC code 


the symbiont and 
g on whether or not 


itl 


terminate the process as appropriate instead of calling SEXIT. 


VO3-005 MLJ0115 
Changes 


V03-004 MLJ0114 
Changes 


v03-003 MLJ0113 
Changes 


v03-002 MLJ0112 
Changes 


v03-001 MLJ0109 
Changes 


for 


for 


for 


for 


for 


job 
job 
job 
job 


job 


Martin L. Jack, 30-Jul-1983 
controller baselevel. 


Martin L. Jack, 23-Jun-1983 
controller baselevel. 


Martin L. Jack, 26-May-1983 
controller baselevel. 


Martin L. Jack, 29-Apr-1983 
controller baselevel. 


Martin L. Jack, 14-Apr-1983 
controller baselevel. 
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18500-1984 90:00:06 AX=11 Oh hege ne V4.0=742 


-Sep-19 JOBCTL.SRCJCONTROL.B32;4 
1 REQUIRE 'SRC$:JOBCTLDEF'; 
REQUIRE ‘SHRLIBS:OPCDEF TMP’; ! To support internal diagnostic option 
1 
1 FORWARD ROUTINE 
1 JOBCTL: NOVALUE, 
1 RESET USERNAME 
1 SCHEDOLE_NONAST: NOVALUE , 
1 MAILBOX_RONAST: NOVALUE , 
1 MAILBOX~AST: NOVALUE, 
1 SIGNAL_FILE ERROR: NOVALUE , 
1 MAIN_HANDLER_ACTION, 
1 MAIN-HANDLER 
BUG_CHECK_SYSTEM: NOVALUE; 
1 
1 EXTERNAL ROUTINE 
1 ALLOCATE_MEMO 
1 CLOSE_ACTCOUNTING FILE NOVALUE, 
1 DEALLOCATE MEMORY NOVALUE, 
1 DELETE_SYMBIONTS NOVALUE, 
1 GETQUI “SERVICE 
1 INITIACIZE_RESTRICTED: NOVALUE , 
1 LOCK_QUEUE-FILE: NOVALUE , 
1 OPEN_ACCOUNTING FILE: NOVALUE, 
1 PROCESS_ACCOUNTING: NOVALUE , 
1 PROCESS DELETION: NOVALUE , 
1 SEND_SERVICE_RESPONSE : NOVALUE , 
1 SYSSSETDDIR 
1 SNDACC_SERVICE, 
1 SNDJBC_SERVICE, 
1 SND SERVICE 
1 SYMBIONT SERVICE: NOVALUE, 
1 UNSOLICITED_INPUT: NOVALUE, 
1 UNLOCK_QUEUE_FILE: NOVALUE, 
! WARM_START_ERISTING_FILE: NOVALUE ; 
1 
1 EXTERNAL 
1 SGNSGL_VMSD2: BBLOCK(4] ADDRESSING_MODE (GENERAL), 
1 CTL$GL~PHD: REF BBLOCK ADDRESSING_MODE (GENERAL) , 
CTLS$T_OSERNAME: VECTORC,BYTE] | ADDRESSING-MODE (GENERAL) : 
1 
1 EXTERNAL LITERAL 
SYS$C_JOBCTLMB; 
1 
1 GLOBAL BIND 
1 NLAO_DESC= SDESCRIPTOR(*_NLAO:'), 
1 OPAO~DESC= SDESCRIPTOR( OPAO:") 
1 JOBCTLMBX_DESC= UPLIT(6, UPLIT BYTE ('_*, LONG(SYS$SC_JOBCTLMB), ':")), 
ALL_PRIVICEGES= UPLIT(=1, -1); 
1 
1 BIND 
1 JOB_CONTROL_DESC= SDESCRIPTOR('JOB_CONTROL'): BBLOCK; 


CC 
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vou-008 . 19236571386 99:99:88 = Eabacte spe iconrkoc asoea 12) 
eS 1437 1 
; 13 1238 1 
; 160 14 1 MACRO 
; 161 1440 1 
3 196 ved. } } Fields for non-AST work queue block. 
> 164 1208 1 NWB_FLINK= 0,0, 8 z, ! Forward Link 
3; 165 1444 1 NWB_BLINK= 4,0,32,0 %, ' Backward Link 
> 166 1445 1 NWB_ROUT= 8,0 0% ' Routine address 
: 167 1446 1 NWB~PAGES= 12,6,32,0 4, | Size of NWB in pages 
> 168 1447 1 NWB_PARAM= 16,0,0,0 %; ! Routine parameters 
: 169 1448 1 
: 170 1449 1 
s ory 1450 1 BUILTIN 
: 172 1451 1 INSQUE, 
s 173 1028 1 REMQUE 
: 17% 1453 1 TESTBITCS; 


ee eee | 
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JOBC CONTROL .B32;4 (3) | 


8 


; 1454 1 ROUTINE JOBCTL: NOVALUE= ‘ 
: (oy 1455 1 : 
; if 14 § 1 !+4 ; 
; 179 1457 1! ; 
; 180 1038 1 ! FUNCTIONAL DESCRIPTION: : 
3 13 re : This routine is the main entry point for the job controller. | ‘ 
: 188 1461 1 ! INPUT PARAMETERS: ; 
> (184 1098 1! NONE ; 
; «185 1465 1! ; 
; (186 1464 1! IMPLICIT INPUTS: | : 
; 4 1465 1! NONE ; 
; «188 1466 1! ; 
> «(189 1467 1 ! OUTPUT PARAMETERS: ’ 
: 190 1468 1! NONE : 
> «191 1469 1! ; 
; 136 1470 1 ! IMPLICIT OUTPUTS: ‘ 
; #19 1471 1! NONE ° 
> 194 1o%6 1! : 
: 195 1473 1! ROUTINE VALUE: : 
: 196 1474 1 | NONE | 
s 197 1475 1! ; 
; 198 1476 1°! SIDE EFFECTS: | ‘ 
: 199 1477 1 NONE : 
: 200 1478 1! ‘ 
; 201 1479 1 !-- : 
: $e 1480 1 ; 
: 20 1481 2 BEGIN ‘ 
> 204 148¢ 2 LOCAL : 
; 205 14835 2 STATUS_1, ! Status return : 
; $08 tf § STATUS_2; ! Status return : 
; 208 1486 2 PRIVILEGE MASK: BBLOCK(8] PSECT(CODE) PRESET( : 
; 209 1487 2 PRVSV_NOACNT] = TRUE, : 
3 $19 1488 2 aid Mg TE = TRUE, ‘ 
3 11 1489 2 PRVSV_BYPASS] = TRUE, 

3 ele 1490 2 PRVSV_CMKRNL] = TRUE, 

3 213 1491 2 PRVSV-DETACH] = TRUE, 

: 214 1038 2 PRV$V_EXQUOTA) = TRUE, 

> 215 149 3 PRV$V~LOG = TRUE, 

; 216 1494 PRVSV-NETMBX) = TRUE, 

3 17 1495 PRV$V_OPER = TRUE, 

> 218 1496 PRVSV~PSWAPM] = TRUE, 

: 219 1497 PRVS$SV_SETPRV) = TRUE, 

; 220 1498 PRVSV-TMPMBX)] = TRUE 

; 321 1499 PRVSV“WORLD] = TRUE); | 

3 $§ 1500 

; 22 1501 BUILTIN : 
: 224 1306 FP; 

: $2 150 

; 6 1504 ’ 

: 44 1203 : Initialize error processing control flags. 

; $59 1309 FLAGSCFLAGS_V_READ_VMSD2] = TRUE; ' Reset debugging control flags from VMSD2 sysgen parameter 

; 230 1508 ! On encountering a severe (fatal? error: 

3 ol 1509 PL Aeshr i ASS cL US TER SCRAM] = FALSE; ! Synchronously bug check entire cluster. 

; 232 1510 FLAGSCFLAGS_V_LEAVE_OPEN) = FALSE; ' Leave system job queue file open on exit | 
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15-Sep-1984 12:27:5 JOBCTL.SRCICONTROL.B32;4 (3) | 
! 
i 
i 
i 
i 


3 3 1511 FLAGSCFLAGS_V_BUGCHECK] = FALSE; Bug check systen vs abort/restart image ; 
: 4 1216 Other debugging flags: ‘ 
3 5 151 FLAGSCFLAGS_V_CS_QF DEADLOCK] = FALSE; Bug check cluster on queue file deadlock error ’ 
; 6 1514 FLAGSLFLAGS_V_LOG_QF REPAIR] = FALSE; Log occurrence of on-the-fly repair of queue file ° 
; L LAGS_V_ QF = FALSE; mit queue file initializaton after opening it ° 
1313 FLAGSLFLAGS_V_OMIT_QF_INIT] = FALSE 0 file initiali f i 

$ 9 1819 IF .FLAGSCFLAGS ¥_READ VASDe} ' Reset debugging control flags ; 
; 240 1518 THEN FLAGS<T7715> = .SGNSGL_VMSD2<1,15>; e 
; 83 1320 zat 
3 ! Set the privileges that we need. : 

8 1521 2 Set the privil h d | 
; a2 1 § SSETPRV(ENBFLG=TRUE, PRVADR=PRIVILEGE_MASK); : 
: $47 1525 | 
; sf 13 $ : Define SYS$DISK to set the default device for image dumps. : 
; 250 P 1528 2 S$CRELOG( | : 
; $2) P 13¢8 TBLFLG=LOGSC PROCESS, ° 
; 26 P 1530 LOGNAM=$DESCRIPTOR ('SYSSDISK'), ° 
: 25 1531 EQLNAM=SDESCRIPTOR(*SYSS$SYSROOT:') ); | ° 
: $35 1333 
; 256 1534 ; ! Set the default directory for image dumps. | | : 
; $20 139? : Note that optional arguments must be specified as zero. | : 
3 €oP 1537 é SYSSSETDDIR (SDESCRIPTOR (‘CSYSEXE]'), 0, 0); | ; 
: 561 1339 3 eat 
; 262 1540 § ! Get the image f- flag from the process header which will be used later : 
; 263 1541 : to determine whether or not image dump will be requested when a symbiont ; 
; see 1348 § : Cor the job controller itself upon termnation) is created. : 
; $6 1544 2 IF (.CTLSGL_PHDCPHDSW_FLAGS] AND PHDSM_IMGDMP) EQL 0 | : 
: 267 1545 $ THEN IMAGE_BDUMP_STSFLG = : 
3 268 1546 2 ELSE IMAGE-DUMP_STSFLG = PRCSM_IMGDMP; : 
. ee ; 
: $f 13833 , Execute a SGETJPI to get process information that will be needed later. : 
; 218 P 1551 2 $GETIPIW( | : 
3; 274 P 1336 EFN=JBCSK_SYNC_EFN, ° 
: @n P 155 ITMLST=UPCIT( | : 
; 276 P 1554 WORD(4, JPIS_ASTLM), LONG(JBC_QUOTAS 1.0.3.0). 9}. : 
: 277 P 1555 WORD(4, JPI$_BIOLM), LONG(JBC_QUOTASE 6,0,32.0]. 0). ‘ 
; 278 P 1556 WORD(4, JPI$_BYTLM), LONG( JBC~QUOTAS([11,0, 0). 0), : 
3 279 P 1557 WORD(4, JPIS-DIOLM),  LONG(JBC-QUOTAS([21,0,32.0], 0). | : 
: 280 P 1558 WORD(4, JPIS_ENQLM), LONG(JBC_QUOTAS(26,0,32,0], 0), ‘ 
i 988 P 1560 WORD(4, JPIS—PGFLQUOTA) ,LONG(JBC-QUOTAS[36,0.32.0]. 0). | ; 
: 28 P 1561 WORD(4, JPIS_PRCLM), LONG(JBC_QUOTAS(41,0,32.0]. 0). : 
: 284 P 136¢ WORD(4, JPIS"TOLM), LONG(JBC~QUOTAS[46,0, 32.0]. 0). : 
; 285 P 156 WORD(4, JPIS_DFWSCNT), LONG(JBC_QUOTAS 2h 232.0), 0), ° 
; 286 P 1564 WORD(4, JPIS$~WSAUTHEXT) ,LONG( JBC~QUOTAS 6,0,32,0), 0), | : 
; 287 P 1565 WORD(4, JPIS_WSAUTH), LONG(JBC_QUOTAS(61, -0J, 0), : 
; 288 P 1306 WORD(4, JPI$_PRIB) LONG(JBC"PRIORITY, 05 | : 
: 289 P 156 WORD(8, JPIS-CURPRIV), LONG(JBC-PRIVILEGES, 6), : 
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WORD(4, JPI$_UIC), LONG(JBC_UIC, 0), 
LONG(05)); 
JBC_QUOTASE 0,0,8,0) = PQLS_ASTLM; 
JBC-QUOTASE 5,0,8,0) = PQL$-BIOLM;: 
JBC~QUOTAS(10,0,8.0) = PQLS"BYTLM; 
JBC-QUOTAS(15,0,8,0] = PQL$-CPULM; 
“QUOTASE20.0.8.0) = PQLS$-DIOLM: 
JBC“QUOTAS(25,0,8,0) = PQLS-ENQLM; 
JBC~QUOTAS Q. 78.0) = PQLS-FILLM: 
“QUOTASE35,0,8.0) = POLS$-PGFLQUOTA; 
JBC~QUOTAS 40, 8.0] = PQLS$-PRCLM; 
JBC-QUOTAS(45,0,8,0) = PQLS$-TQELM; 
JBC-QUOTAS 20.0. 70) = PQLS$"WSDEFAULT; 
JBC"QUOTAS(55,0,8.0] = PQLS$-WSEXTENT; 
JBC~QUOTAS(60,0,8,0] = PQL$_WSQUOTA; 
JBC~QUOTAS(65,0,8.0] = PQLS"LISTEND;: 


Establish the condition handler. 
.FP = MAIN_HANDLER; 


Set the process name and the username to JOB_CONTROL. 
SSETPRN(PRCNAM=JOB_CONTROL_DESC); 

SCMKRNL (ROUT IN=RESET_USERNAME) ; 

Assign a channel to the job controller input mailbox. 

STATUS_1 = SASSIGN(DEVNAM=JOBCTLMBX_DESC, CHAN=MBX_CHAN) ; 

IF NOT~.STATUS_1 THEN SIGNAL(JBC$_OPEJBCMBX OR STSSK_SEVERE, 0, -STATUS_1); 
Get the current time. 

$GETTIM(TIMADR=CUR_TIME); 


Initialize the restricted login hours subsystem. 
INITIALIZE_RESTRICTED(); 


Initialize the accounting manager. 
OPEN_ACCOUNTING_F ILE (FALSE); 


: Initialize the static queue headers. 


NONAST_WORK_QUEUECO] = NONAST_WORK QUEUEC1] = NONAST_WORK_QUEUELO]; 
INCR I7FROM"O TO TALLOCAT ON(MEMORY_FREE_QUEUES) /4-27BY 
MEMORY_FREE_QUEUESC.1] = MEMORY-FREE~QUEUESL.1+1) = MEMORY_FREE_QUEUESL.1); 
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S 


: 347 1625 3 

3 rk 19 § Queue the first read from the mailbox. 

: 350 16 ELAGSCF AGS,V READ_POSTED] = TRUE; 

s 3551 P 16 § STATU = § 

3 28 P 1650 Yine=108 READVBLK. 

; * P 1631 f AN=.M8 ° 

: 354 P 16 § 10SB=MBX_T 

: 55 P 16 ASTADR=MAILBOX AST, 

: 356 P 1634 =MB 

3 57 1635 b2= BALCOCATION (nox BUFFER)); 

3 339 1 § IF NOT .STATUS_2 THEN SIGNAL (J (JBCS_REAJBCMBX OR STSSK_SEVERE, 0, .STATUS_2); 
; 360 1638 

; 361 1639 ! Hibernate, waiting for non-AST work. 

; 6 1640 ! 

3 6 1641 WHILE TRUE DO 

: 364 1606 BEGIN 

> 365 164 LOCAL 

: 366 1644 NWB REF BBLOCK; ! Pointer to non-AST work block 
; 367 1645 

: 368 1646 3 

; 369 1647 3 UNTIL REMQUE(.NONAST_WORK_QUEVECO], NWB) DO 
; 370 1648 4 ro 

s 571 1649 4 WBECNWB_ROUT]) (NWBCNWB_PARAM]); 

: 372 1650 4 DEALLOCATE _MEMORY(.NWB, [NWBCNWB.PAGES)); 
: 375 1651 3 ND; 

3; 374 1936 3 SHIBER; 

s 375 1653 2 END; 

s 376 1654 1 END; 


-TITLE CONTROL Main control logic 
SIDENT \V04-002\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE_BASE: 


.BLKB 0 
00000 DIAG_TRACE: 

<BLKB 96 
00060 DIAG_COUNT: 

.BLKB 96 
000c0 DIAG_FLAGS: , 
000C4 WORK_AREA: 

LKB 44 

QO0FO SNDJBC_COUNT: 

.BLKB 132 
00174 GETQUI COUNT : a 
0019C SNDACC COUNT : ha 
00188 SNDSMB_ COUNTS -. 


LK 
00200 DIAG_STORAGE_END: 
-BLKB 0 
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v04-00 ° 18: ety 7 10:90:88 JOBCTL. SRCICONTROL .B32 24 
60300 O FLAGS: .BLKB 
0204 IMAGE -Duip Shade 
00208 THIS_SYSID: 
BLK 


0020 -BLKB 
00210 CUR_TIME: 


00218 HOURLY_TIMEs 
00220 HOURLY PARARS 
00234 SYMBIONT. COUNT: 
00238 QUEUE REFERENCE COUNT: 
0023¢ MBX_MESSAGE COUNT : 
00240 MBX: “BLK 
00244 MBX “BLKB 
00348 MEMORY. -FREE QUEUES: 
00270 NONAST er QUEUE: 
00278 BCB_FREE “1st: 
0027C BCB_ACTIVE LIST: 
00280 GQL_FREE St: 
00284 GaL -ACTIVE LIST: 
00288 OPEN_GETQUI LIST: 
0028C PROCESS bath LIS 
00290 SYMBIONT_CONTROL: 
00294 SPARE my 

002A0 REMOTE REQUEST L 
002A8 QUEVE_FILE_LKSB: 


~BLKB 
00280 QUEUE _LOCK LKSB: 
"BCKB 


se @ 8 NO FO 
oO 


Pea Lof 


mr 


00288 RSP -BLKB 
002CO JBC “PRIORITY: 


-BLKB 
002¢4 JBC_PRIVILEGES 
oo2cc JBC _QUOTAS: | 


o 


Sa © £ WOO © wx #.. aa , a a aes 


OO 30E -BLKB 
0310 JBC_UIC: .BLKB 
00314 QUEDE_FAB: 


oo 
oO 


Page 
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00364 
003A8 
00408 
00460 


Q055F 
00560 


00564 


00565 
00568 


00570 
00578 
005¢8 
0060C 
0066C 


00768 
0076C 


007BC 
00800 
00860 


0095F 
00960 


00980 
009F4 
009F8 
00A00 
00E00 
00E00 
00E20 
00E20 
00E26 
QOE2A 


$ep-1984 00:00:4 AX-11 s$-32 V4.0-742 
1-0-1964 90:90:42 yane1t Blisg-32 v4.0-742, 
QUEUE RAB: 
BLK 68 
QUEUE _NAM: 
~BLK 96 
QUEUE_XAB: 
BLK 88 
QUEUE _RSA: 
BLK 255 
-BLK 1 
QUEUE _ALQ: 
~BLK 4 
QUEUE _MBF : 
BLK 1 
-BLKB 3 
ACCOUNTING 4a 
ACCOUNTING _RABS: 
-BLK 8 
ACCOUNT_FAB_A 
~BLKB 80 
ACCOUNT_RAB_A: e 
ACCOUNT_NAM_A: - 
ACCOUNT_RSA_A: 
-BLRB 255 
~BLKB 1 
ACCOUNT _FAB_B: 
BL 80 
ACCOUNT_RAB B: 
BL 68 
ACCOUNT_NAM B: 
BL 96 
ACCOUNT_RSA B: 
-BLRB 255 
~BLKB 1 
DIAG_FAB: 
-BLKB 80 
DIAG_RAB: 
-BLKB 68 
MBX_CHAN: 
-BLKB 4 
MBX_IOSB: 
-BLKB 8 
MBX_BUFFER: 
K 10 


ae ee 


8B 
ITEM_PRESENT: 


VALUE _GE TOU! BAS : 

VALUE ACEQUNT ING MESSAGE : 
VALUE_ACCOUNTING_ TYPES: 
VALUE _AFTER TIME: 


CONTRO 
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00E32 
00E33 
00E 34 
OOE3A 
00E44 
00E45 
00E4B 
OOESC 
O0ESC 
00E62 
00E68 
OOE6C 
00E70 
00E78 
GOE7E 
00E82 
OOES8C 
00E8E 
OOE 8F 
00EB3 
OOEB9 
OOEBF 
O0EC3 
OOEC9 
OOECA 
OOECB 
OOECD 
OOECF 


18: 


16 
SET9EE QUDRESE VMaLT SSA De te 

VALUE ALIGNMENT _PAGES: 
VALUE BASE PRIORITY: 
VALUE BATCH INPUT: 
VALUE_BATCH OUTPUT: 
VALUE BUFFER COUNT: 
VALUE CHARACTERISTIC NAME : 
VALUE _CHARACTERISTIC_NUMBER: 
VALUE CHARACTERISTICS: 
VALUE CHECKPOINT DATA: 
VALUE _CLI: 
VALUE CPU DEFAULT: 
VALUE_CPU tIAIT: 
VALUE _DESTINATION_QUEUE : 
VALUE _DEVICE NAME : 
VALUE ENTRY NUMBER : 
VALUE_ENTRY_NUMBER_OUTPUT: 
VALUE “exipun QUANTITY: 
VALUE “File COPteS: 
VALUE_FILE IDENTIFICATION: 
VALUE _FILE SETUP MODULES : 
VALUE_FILE SPECIFICATION: 
VALUE _FIRST PAGE: 
VALUE FORM DESCRIPTION: 
VALUE _FORK LENGTH: 
VALUE_FORM_MARGIN_BOTTOM: 
VALUE Foi RARGINLEFT: 
VALUE_FORM_MARGIN_RIGHT: 
VALUE FORM MARGIN TOP: 

~ #7 
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O0EDO 
O0ED6 
OOEDA 
OOEE2 
QOOEES 
OOEEE 
OOEFO 
01204 
01205 
01206 
0120C 
012E2 
0126 
Q12EA 
012F4 
012F8 
O12FE 
01306 
0130C 
01312 
01318 
0131C 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 


v04-00 Ifo3e 


or 


Sep-1986 Ioie7:s6 — LJOBCTL SRESCONTROL 8S2;4 
VALUE_FORM_NAME : 
VALUE “FORR NUMBER: 
VALUE _FORRG 
-BLKB 
VALUE. FORM SETUP 
VALUE. FORM STOCK: 
VALUE_FORM_ WIDTH: 
VALUE “GENEAIE. TA 
VALUE “oie Bias? 
VALUE_JOB_LIMIT: 
VALUE_ JOB NAME 
VALUE _JOB RESET MODULES: 
VALUE _JOB Size MAXIMUM: 
VALUE _JOB S1ZE_MINIMUM: 
VALUE_JOB_STATUS_OQUTPUT: 
VALUE “LAST PAGE: 
VALUE LIBRARY. SPECIFICATION: 
VALUE LOG, QUEUE 
VALUE _LOG. SPECIFICATION: 
VALUE “Notes” 4 
VALUE -oPERATOR. REQUEST: 
VALUE _OWNER_UIC: 
VALUE “PAGE SETUP MODULES: 
VALUE _PARARETER, 
VALUE _PARANETER 
VALUE PARAMETER. 
VALUE “PARRHETER 
VALUE “PARANETER. 
VALUE _PARARETER 
VALUE _PARAMETER 


MODULES: 


= 


O 3 ODN OFLC RDO” 
oT) 
am 


4 
8 
1 
“6 
2 
4 
“6 
_4: 
“6 
5 
“6 
6 
3 
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3A 30 41 


3A 30 41 


FFFFFFFF 


4C 4E SF 


00000006 
00000000° 
50 4F 5F 


0000006 
0000000' 


16- 
1 - 


0134¢ 
01352 
01353 
01359 
01350 
01363 
01369 
0136D 
0136E 
01370 
01374 
0137A 
01384 
0138E 
01394 
0139A 
0139C 
0139E 
013A0 
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16 
Sep-1984 00:00:4 AX-11 Bliss-32 V4.0-742 
set 7 90290 88 LOBCTL Se CONTROL .B32;4 
.BLKB 6 
VALUE PARAMETER, : 
VALUE PRIORITY: 
VALUE PROCESSOR: 
VALUE PROTECTION 
VALUE QUEUE : 
VALUE QUEUE FILE SPECIFICATION: 
VALUE RELATIVE PAGE: 
VALUE RESERVED. INPUT_1: 
VALUE RESERVED INPUT_2: 
VALUE_RESERVED_INPUT_3: 
VALUE _RESERVED_INPUT_4: 
VALUE_RESERVED_OUTPUT_1: 
.BLKB ~ 10 
VALUE _RESERVED_OUTPUT_2: 
VALUE_SEARCH_ STRING: 
VALUE_SCSNODE NAME : 
VALUE _WSDEF AULT: 
VALUE _WSEXTENT: 
VALUE_WSQUOTA: 
.BLKB 2 
VALUE _STORAGE_END: 
.BLKB~ 0 


Se ° a ° as 


ro o 


»PSECT CODE,NOWRT,2 


P.AAB: .ASCII \_NLAO:\ 
-BLKB 
P.AAA: .LONG 
-ADDRESS P.AAB 
P.AAD: .ASCII \_OPAO:\ 
-BLKB 2 
P.AAC: .LONG 6 
»ADDRESS P.AAD 
P.AAF: .ASC \ 
-LONG SYS$C_JOBCTLMB 
eASCII \:\ 
-BLKB 
P.AAE: .LONG 
-ADDRESS P.AAF 
P.AAG: .LONG <1, =1 
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5D 45 
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53 


45 
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16 
-Sep-1984 00:00:4 AX-11 Bliss-32 V4.0-742 
g-Se0-1984 90290 588 JOBCTL.SRCICONTROL .B3274 
P.AAI: .ASCTI \JOB_CONTROL\ 
LKb 1 
P.AAH «LONG 11 
ADDRES. °.AAI 
PRIVILEGE MASK: 
-BYTE <-95, -14, 29, 32 
-BLKB 4 
P.AAK: .ASCII \SYS$DISK\ 
P.AAJ: . 
«ADDRESS P.AAK 
P.AAM: .ASCII \SYS$SYSROOT:\ 
P.AAL: .LON 
ADDRESS P.AAM 
P.AAO: .ASCII \CSYSEXEIJ\ 
P.AAN: .LON 
-ADDRESS P.AAO 
P.AAP: .WOR 4, 
61 + hae agement. 
«WORD 4, 784 
-ADDRESS JBC_QUOTAS+6 
-LONG 0 
-WORD 4, 794 
ADDRESS JBC_QUOTAS+11 
~ LONG 0 
«WORD 4, 787 
oY plane aes clans 
«WORD 4, 800 
ADDRESS JBC_QUOTAS+26 
-LONG 0 
» WORD 4, 1039 
-ADDRESS JBC_QUOTAS+31 
-LONG 0 
-WORD 4, 1038 
ES, ee 
eWORD 4, 1032 
“ADDRESS JBC_QUOTAS+41 
-LONG 0 
«WORD 4, 1040 
-ADDRESS JBC_QUOTAS+46 
~LONG 0 
eWORD 4, 1027 
Teen te Fah REET 
eWORD 4, 1047 
-ADDRESS JBC_QUOTAS+56 
-LONG OQ 
eWORD 4, 1025 
ADDRESS JBC_QUOTAS+61 


+o 


“WORD 4, 777 
ADDRESS JBC_PRIORITY 


“WORD 8, 1024 
“ADDRESS JBC_PRIVILEGES 


H 16 
CONTRO Main control Logic 16-Sep-1984 74 AX-11 Bliss-32 V4.0-742 
v04=00 18-888 71382 99: 90: 8 JOBCTL.SRCJCONTROL.B32;4 
0000000 001 -LONG 0 
0304 0004 01 § «WORD 4, 772 
900 000" 00134 “ADDRESS jec_uic 
0000000 00138 LONG 
00000000 0013¢ “CONG 
JBC$_CLOSEOUT= 66328 
JBC$_NOCMKRNL= 723 | 
JBC$_NOOPER= 725 
JBCS_NOSYSNAM= 72404 
JBC$_OPENIN= 66392 
JBC$_OPENOUT= 66400 
JBC$_READERR= 66416 
JBCS$_WRITEERR= 66448 
NLAO_DESC== P.AAA 
OPAO-DESC== P.AAC 
JOBCTLMBX_DESC== P.AAE 
ALL_PRIVICEGES== 4 AAG 
JOB=CONTROL_DESC= 
~EXTRN ALLOCATE on MORY 
-EXTRN CLOSE pct ount ine FILE 
~EXTRN DEALLOCAT snoe RY 


-EXTRN DELETE_S 


LOCK_a0 I 
-EXTRN OPEN ACCOUNTING FILE 
“pute process ACCOUNTING 


TEXTRN PROCESS DELETION 
TEXTRN SEND_SERVICE_RESPONSE 

“EXTRN SYSSSETDDIR, SNDACC_ SERVICE 
ZEXTRN SNDJBC_SERVICE, SNDSMB_SERVICE 
*EXTRN SYMBIORT reerVice 

EXTRN UNSOL IC D INPUT 

"EXTRN UNLOCK E FILE 

“EXTRN WARM cau setae) FILE 
~EXTRN seneel bp CTL$G 


EXT 

-EXTRN CTL$T_O eset P NOBCTLMB 
EXT Y estas LOG 

-EXTRN SYSS$GETJPIW, SYSSCETPRN 

-EXTRN SYSSCMKRNL, SYSSASSIGN 


~-EXTRN SYSSGETTIM, SYS$QI0 
-EXTRN SYSSHIBER 


JOBCTL: .WORD Save R2,R3,R4,R5 


55 000000006 00 MOVAB LIBSSIGNAL, R5 


e R 
5 E MOVAB BRIVILEG _MASK, R4 
53 00000000° EF VAB FLAGS, R 
02 A’ BISB 1, FLAGS+ 
02 Ad 7E BICB #26 FLAGS+2 
OF 02 BLBC a 
50 000000006 00 OF EXTZV ; parser VMSD2, RO 
A3 OF 01 NSV ofl. # FLAGS+2 


oOonVCoONTMMNoO@MOooOowW 
FDOT on"orommmnea 


meno wn— 


NOOMNWMO & OO S 


CLROQ 
PUSHL 
PUSHL #1 

000000006 00 CALLS #4, SYSS$SETPRV 
CLRL 3s. = (§P) 


SYNBION NTS 
-EXTRN GETQUI SERVICE, INITIALIZE_RESTRICTED 


BeBe Se Se Be 


Pete Se Se Se Se Se Oe Be Se Se Be Be ee 


16 
CONTRO Main control Logic 1b-5e -1984 00:4 AX-11 Bliss-32 V4.0-742 
v04-00 1 ~8ep-19 4 90:90:88 JOBCTL.SRCJCONTROL.B32;4 
24 AG OF 00 49 PUSHAB P.AAL 
10 Ad 9F 0004 PUSHAB P.AAJ 
02 odd 00 46 PUSHL #2 
000000006 00 04 FB 0004 CALLS #4, SYS$CRELOG 
7E 7C 0004F CLRQ 2s = (§P) 
34 AG 9F 00051 PUSHAB P.AAN 
000000006 EF 03 FB 0054 CALLS #3, SYS$SETDDIR 
0 000000006 00 00 00058 MOVL  CTLSGL_PHD, RO 
05 36 AO 05 €0 9006¢ BBS #5, 54TRO). 2$ 
04 AS D4 0006 CLRL MAGE_DUMP. STSFLG 
06 11 OOGGA BRB g 
04 A3 0800 gF 3¢ 0 $6 33 MOVZWL #2048, IMAGE_DUMP_STSFLG 
E 7C 00072 3$ CLRQ  =(SP) 
7E 04 00074 CLRL = (SP) 
3c = AGSSOOF «00076 PUSHAB P.AAP 
7E 7C 00079 CLRQ =(SP) 
01 DD 00078 PUSHL #1 
000000006 00 07 FB 0007D CALLS 4&7, SYSS$GETUJPIW 
oocc §¢3 01 90 00084 OVB #1, JBC_QUOTA 
0001 C3 2 90 00089 MOVB #2, JBCTQUOTAS+5 
0006 «= ¢3 03 90 00086 MOVB #3, JBCQUOTAS+10 
00pB C3 04 90 0009 MOVB 4, JBCTQUOTAS+15 
00E0 C3 05 90 00098 MOVB #5. JBC~QUOTAS+20 
00E5 3 0C 90 0009D MOVB #12, JBC_QUOTAS+25 
OOEK[A «C3 06 90 000A2 MOVB , JBC_QUOTAS+ 
OOEF C3 07 90 000A7 MOVB #7, JBCTQUOTAS+35 
OOF4 (3 08 90 OOOAC MOVB #8, JBC~QUOTAS+40 
OOF9 C3 09 90 000B1 MOVB 9° JBC” QUOTAS+45 
OOFE C3 0B 90 00086 MOVB #11, JBC_QUOTAS+50 
0103 «C3 0D 90 000BB MOVB #13, JBC"QUOTAS+55 
0108 + ¢3 0A 90 000C0 MOVB #10, JBC~QUOTAS+60 
010D C3 94 000C5 CLRB BC QUOTAS+65 
6D 0000v CF 9€ 000C9 MOVAB MAIN HANDLER, (FP) 
FB AG OF OOOCE PUSHAB JOB_CONTROL_DESC 
000000006 00 01 FB 000D1 CALLS #1, SYSS$SETPRN 
7E D4 00008 CLRL 0s = (§P) 
0000v CF 9F OOODA PUSHAB RESET_USERNAME 
000000006 00 02 FB OO0DE CALLS #2, SYSS$CMKRNL 
ze 7C OO0ES CLRO = (§P) 
O7F4 C3 OF O00E7 PUSHAB MBX_CHA 
DC A& 9F OOOEB PUSHAB JOBCTLMBX_DESC 
000000006 00 04 FB OOOEE CALLS #4, SYSSASSIGN 
0D 50 €8 OOOFS LBS STATUS_1, 4$ 
30 DD 000F8 PUSHL  STATUS~ 
E D4 OOOFA CLRL =(SP) 
00048434 8F DD 900F¢ PUSHL #295988 
65 03 FB 0198 CALLS #3, LIBSSIGNAL 
10 A3 9F 00105 4s: PUSHAB CUR_TI 
000006006 00 01 FB 00108 CALLS #1, SYSSGETTIM 
000000006 _ ‘EF 00 FB OO10F CALLS #0, INITIALIZE_RESTRICTED 
E D4 00116 CLRL. 0s = §P) 
000000006 EF 01 FB 00118 CALLS #1, OPEN ACCOUNTING FILE 
50 70 AS 9E OO11F MOVAB NONAST WORK QUEUE, 
7% 8 A3 26 dO 001 ; MOVL RO, NORAST_QORK_QUEUE+4 
70 «AS 0 D 01 MOVL = RO, NONAST “WORK “QUEUE 
50 04 00128 CLRL Oo 
51 48 A340 DE 00120 58: MOVAL MEMORY_FREE_QUEUESCIJ, R1 


ee ed ed dd ad od od at ed ot ed od ot 
PF AAA AMVMAVIMVIUI I 
OCOWDOOOONNNNNNNNSG 
FOUN -OCODBNOUSWN— 
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vou~00 . 


Pt ' Aaee 
48 A34 
FFEB 50 09 
6 
7E 40 
80 
000 
O7F 
O7F4 
000000006 60 
0004844C 
65 
52 70 
10 
08 62 a 


00000000G_ EF 
000000006 00 


p-198¢ 2:57:36 — Edae 
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-@O-DWoVTO "Oo "WoO SION s 
COOCGCGCCOCCOCCOCOCOCOCOOOCOOOOOOOOOOOOO 
jelelelelelelelelelelolelelolelelolelolelolololoclolelelocioloa) 
eS ss ts Ss ss a a 
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; Routine Size: 415 bytes, Routine Base: CODE + 0140 


32 V4.0-742 
ONTROL .B32;4 
UE 
UE 


1 
T 

R1, MEMORY_F g+401] 
E SCI 


Ri. MEMORY. 


MAILBOX_AST 
MBX_10SB 


MBX_ CHAN 
-(SP 

#12, SYS$QI 
STA 


0 
Tus.¢, 68 
STATUS 


=(S 

#296012 

#3, LIBSSIGNAL 
QNONAST_WORK QUEUE, NWB 
16 (NWB) 

#1, a8(NWB) 

12 (NWB) 

NWB 

#2, DEALLOCATE_MEMORY 
#0, SYSSHIBER 

6$ 
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; Routine Size: 


K 16 

Main control logic 16-Sep-1984 00:00:4 AX=-11 Bliss-32 V4.0-742 

: 18 ep= 1984 19:99:33 JOBCTL. RCICONTROL 83254 
ROUTINE RESET_USERNAME= 
++ 
' 

FUNCTIONAL DESCRIPTION: 
This routine sets the process username to JOB_CONTROL. It executes in 

kernel mode. 


INPUT PARAMETERS: 
NONE 


AAAS MUMUINIU 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 


CTLST_USERNAME set to JOB_CONTROL. 


ROUTINE VALUE: 


SS$_NORMAL 
SIDE EFFECTS: 
NONE 


BEGIN 

CHSCOPY ( 
. JOB CONTROL _DESCCDSC$W_LENGTH], .JOB_CONTROL_DESCCDSCSA_POINTER], 
12, CTLST_USERNAME) ; 

SS$_NORMAL 


hk kk kk kk kk kk th ht tt tt 
pa a ah a A A IE SS SS ES SSS BA 


60 09 09 C9 09 09 00 C9 09 08 INI SI NSIS NINN NNO OO 
= POPININNONYS 2 es 


OONAUE WN © OONAU SW (OO ONAUE WN O0OONOU 


003C 00000 RESET_USERNAME : 
WORD Save R2,R3,R4,R5 


20 FD60 ~=—OOF FDOSF CF 2C 00002 MOVC5 JOB_ CONTROL DESC, @JOB CONTROL_DESC+4, - 
000000006 00 sii #32, #12, CTLST_USERNAME 
50 01 00 0001 MOVL #1, RO 
04 00015 RET 


20 bytes, Routine Base: CODE + O2DF 


1655 
1684 


1689 


Main control Logic 18-50 gon~ 139% 99:00:46 AX-11 Bliss-32 V4.0-742 


-Sep-19 JOBCTL.SRCJCONTROL .B32;4 


; ret 1690 } GLOBAL ROUTINE SCHEDULE_NONAST(ROUT,LENGTH, ADDRESS): NOVALUE= 
: 416 1936 1 !4+ 

s 617 1693 1! 

: 418 1694 1 | FUNCTIONAL DESCRIPTION: 

; 419 1695 1: This routine is called by an AST routine to schedule a specified routine 
; 420 1696 1! to execute at non-AST level. The requests are processed first in, first 
3 ess 1697 1! out. 

s 6 ¢ 1698 1: 

: $s 1699 1 | INPUT PARAMETERS: 

3; 424 1700 1! ROUT - Address of the routine to be executed. 
: ts? 1701 1 i LENGTH - (Optional) Descriptor for parameter data. 
: 426 a 1 ADDRESS - 

; 4 1703 1! 

: 428 1704 1! IMPLICIT INPUTS: 

3 4 1705 1: NONE 

; 430 1706 1! 

3: 431 1707 1 | OUTPUT PARAMETERS: 

; 432 1708 1! NONE 

; 433 1709 1! 

>; 434 1710 1! IMPLICIT OUTPUTS: 

; 435 1711 13 NONE 

; 436 ar 1: 

; 437 171 1 i ROUTINE VALUE: 

>; 438 1714 1! NONE 

3; 439 1715 1! 

3; 440 1716 1 ! SIDE EFFECTS: 

> 441 1717 1 NONE 

; 442 1718 1! 

; 443 1719 1 i- 

3 444 1720 1 

> 445 1721 2 BEGIN 

> 446 \is¢ 5 LOCAL ; 

3: 447 172 REF BBLOCK; ! Pointer to non-AST work block 
> 468 1724 2 BUILTIN 

3; 449 1725 2 ACTUALCOUNT; 

3 450 1726 2 

3; 451 1727 2 

; 452 1728 2 IF ACTUALCOUNT() LSSU 2 

; 453 1729 THEN 

3: 454 1730 BEGIN 

s 655 1731 NWB = ALLOCATE_MEMORY(); 

: 456 1736 var tee Beg bb = ROUT; 

s 657 4 NWBCNWB_PAGES) = 1; 

; 458 1734 

; 459 1735 ELSE 

; 460 1736 BEGIN 

: 461 173 LOCAL 

3 re 1738 ; 

: 46 1739 

3; 464 1740 NP = (.LENGTH + 16 + 511) / 512; 

; 665 1741 NWB = ALLOCATE MEMORY (NP); 

8 228 17t6 NWB Nu ROUT J = ar ure 

; 46 174 NWBCNWB PAGES] = 

: 468 1744 CHSMOVET. LENGTH, ADDRESS, NWBCNWB_PARAM]); 

; 469 1745 ENDS 

; 470 1746 
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1747 
1748 ; IF INSQUE(.NWB, .NONAST_WORK_QUEVEC1]) THEN SWAKE(); 
1749 END; 
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Routine Base: 


; Routine Size: 


$ AX=1 


Bliss-32 v4.0-742 
5 ¢} 


1 
JOBCTL.SRCJCONTROL .B32;4 


SYSSWAKE 

SCHEDULE _NONAST, Save R2,R3,R4,R5,R6,R7 
7) pee. lethal R?7 

(AP), # 

+f ALLOCATE _MEMORY 


ROUT, 8(NWB) 
#1, 12(NWB) 


#527, LENGTH, RO 
#512 NP 


#1, ALLOCATE_MEMORY 
ROUT, 8(NWB) 
NP, 12(NWB) 


LENGTH, @ADDRESS, 16(NWB) 
ye). @NONAST_WORK_QUEUE +4 


-(SP) 
#2, SYSSWAKE 


Se Se Se Se Se Se Se Se Se Se Be Se Se Se Fe Se Be Se Se Se Se Be 
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= 
33 


508 


Oo 


WARP ROnonny 1 a ee 


SONS Se ro ner O SNEAK 


QLD DVDPV DVD PUPP PVD DVDSP IAT TT 
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PAEX®Q® PAA 
WR! O OOBNOUE WN O 


PN RPE BS 


Baeaaaa SN NS SSS NSS NSS 
SaVSS Ree SSS SAR BS Sa NO PUNO Dae wen 


SN 
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ROUTINE MAILBOX _NONAST(MSG): NOVALUE= 


FUNCTIONAL DESCRIPTION: 
This routine is scheduled to execute by the completion AST routine for 
a mailbox read. It processes the buffered message. 


INPUT PARAMETERS: 
MSG - Pointer to message IOSB followed by message. ’ 


! IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


=. 


1 
' 
! 
i 
i QUTPUT PARAMETERS: | 
; NONE | 
' 
! 


STATUS; ' Status return 


: Initialize global pointers to the message. 


MBX = .MSG + B; 
MBX_END = .MBX + .MBXCACMSW_MSGLENI; 


If .FLAGSCFLAGS_V_READ_VMSD2) ! Reset debug control flags 
THEN FLAGS<T7,15> = .SGNSGL_VMSD2<1,15>; 


DIAG_TRACECO MBXCMSG_W_TYPE); | steee diagnostic info ***** 
DIAG_TRACEL1 ! weeee diagnostic info ***** 
DIA 0 
DIA 4 


DiAG_cOUNTE1] = DIAG_COUNTE?] = DIA -COUNTES] z 0: 
DIAG-COUNTL5] = DIAGCOUNTL6] = DIAG-COUNTL7) = 0; 
: Process the message. 

CASE -.MBXCMSG_W_TYPE] FROM MSG$_DELPROC TO MSG$_GETQUI OF 


INRANGE, OUTRANGE): 
SIGNAL (J8C$_INVMSG OR STS$K_ERROR); 


© De Be Se Ge Oe Be Ge Se Oe Oe ee BH Se Be St Oe Se Se SH Se ee SH SH Se Sees ee SH Se Ge SHS ae Se we 


Be Pee Oe Se ae SH Be ae Se Se Se See ee Se ee Se See See 


DOONAN E WO Dane 


DAA URAUIION & & & 


SALARIES 


NN NNN NSO Oo 


SRS ARANV LS SSVSAEAS LS SOS 


Be Be Oe Oe Be Be Be Se Be Be Be Be Be Be Be Be Oe Be Se Se Se Se Be Ge Se Be Se Se Oe Be Ge Se Se Se Se Se Oe Se Be Se Se Se Oe Se Se Se Be Oe Se Oe Os Oe Oe Se Se Se ae 


Pw rebate leah al eal al ah al ab ah sh sh Ah hb dh dh dh ob oh db 4b ob-tb Ob 4b 4b 4h Ah Ab Ab ab Ab Ab ah Ab ah hh ab eh oh ode 


Main control logic 16-5 Sep-19 AX-11 Bliss-32 V4.0-742 P 2 
. ety f 90: 00:88 JOBCTL.SRCICONTROL.B32;4 a (BS 


oOo 


NO AEN 0 ODNO UE WIN OOD NOUN WIN (OO ODNOAU EW SO CONOUE Wh OOOn 


CMSG$_DELPROC): 
BEGIN 


COPY a Fy MBXCAC ACHRG STSTIRED, CUR_TIME); 
pa ELETION(); 


tomy SND SMB: 


COPY TIME (MBX 


ACMSQ_SYSTIME], CUR_TIME); ' 
sata w 


CA 
vPE] = MSG$_SMBRSP; 
TRY NUMBERT = 0; 
aT US} SNDSMB_ SERVICE (); 


LOCK GUEUVE_FILE< | 
SEND. SERVICE “RESPONSE (); 


vue. Peis 


See mC TIMADR= CUR_TIME); 
— SERVICE OF 


Beet MCTIMADR= CUR_TIME 3 
ive ee _FABCFABSQ_IFI] NEQ 0 


4} 


L 
SYSID: BBLOCK(6); 


eotgyt ae 0,8,0], MBXC9,0,0,0], %C° *, 6, SYSID); 
LOCK_QUEUE_FILE();* 

WARM SyaRTa EXISTING. -FILE(SYSID); 

UNLOCK QUEDE _FILE() 
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END; 
84 
84 
8 CMSG$_SNDACC): 
85 COPY TIME (MBXCACMSQ SYSTIME] CUR_TIME); 
85 RSPCRSP_W_TYPE] = MSG$_ACCRSP; 
85 RSP RSP AULENTRY NUMBERT < 0; 
85 RSPLRSP-L“S AUS) = SNDACC SERVICE); 
85 SEND_ SERVICE _RESPONSE (); 
85 END; 
f 
85 (MSGS PURPROC, MSGS$_DELIMAG, MSG$_PURIMAG): 


COPY TIME (MBXCACHSO SYSTIMEJ, CUR_TIME); 
= yaaa ACCOUNTING(); 


ee  __ Le 


: ee. he ! Connection manager message 
4 
4 
4 
& 
4 
4 
4 
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CMSG$_SNDJBCI: 


COPY TIME (MBXCACHSO SYSTIME] J, CUR_TIME); 
RSPCRSPL EN russ . SND JBC “SERVICE QO; 
UNLOCK QUEUE F 

SEND. SERVICE “RESPONSE () : 


oa 


CMSG$_GETQUI): 


COPY TIME (MBXCACHSO SYSTIME], CUR_TIME); 
RSPCRSP_W_ENTRY_ NUMBER] = 

RSPLRSP~L STATUS) = GETQUI “SERVICEQ); 

UNLOCK GUEUE_F ILE ( 

SEND. SERVICE “RESPONSE (); 


oO 


a 
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' Queue another read from the mailbox if there is no read in progress -- it 
! was shut down because the maximum was exceeded. 
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' 
' 
' 
MBX_MESSAGE COUNT = .MBX_MESSAGE_ COUNT - 1; 
if TESTBITCSCFLAGSCFLAGS- V_READ EBOSTED}) 


AE TATUS: ! Status return 


oat i = $010 
UNC= ee ae READVBLK, 


CHAN 
10SB=MBxX_TOSB, 
ASTADR=MAILBOK LAST, 
P1=MBX_BUFFER 
P2=BACLOCAT [ON (MBX BUFFER 

is NOT .STATUS THEN SIGNAL CIBCS” REAJBCMBX OR STSSK_SEVERE, 0, .STATUS); 
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Yoe~005 ° 13x 8e8- 138s Foi eo eg Mee Tee RES céa Thor asec - a vt 
51 08 Ad 9A 000C7 MOVZBL 8(RO), R1 ; ; 
06 20 09 «AO 31 3¢ 00¢B MOVCS R1, 9(RO), #32, #6, SYSID : : 
000000006 EF 09 FB 0002 CALLS #0, LOCK_QUEUE_FILE ; 1842 
—E DD 000D PUSHL SP t 1843) 
000000006 EF oi FB OO00D CALLS #1, WARM_START_EXISTING_FILE ; | 
69 9 FB OOOE CALLS #0, UNLOCK_QUEDE_FILE ; 1844 
53 11 OO0E BRB : 1799 ; 
bb 3¢ =6A2-s 7D OO0E7 BS: MOV  60(R2), CUR_TIME + 1851) : 
OOAB 66 21 DO 000EB MOVL #33, RSP + 1852) ; 
000000006 EF 00 FB OO00FO CALLS #0, SNDACC_SERVICE + 1854 | : 
OOAC C6 20 D0 OOF? MOVL RO, RSP+4 : : 
11 O00FC BRB + 1855) : 
6 3c «= A277 O00rE 9$: MOVO  60(R2), CUR_TIME + 1861. : 
000000006 EF 00 FB 0010 CALLS #0, PROCESS~ACCOUNTING + 1862. 
2F 1100109 10$: BRB 16$ + 1799. 
66 3¢ =A2 7D 00108 11$:  MOvVa  60(R2), CUR_TIME : 1868 | 
OOAA cé B4 0010F CLRW = RSP+ > 1869. 
000000006 EF 0 FB 00113 CALLS #0, SNDJBC_SERVICE + 1870 
OF 11 OO11A 128: BRB 14 : 
£S 3c 360 A2—s 7D «0011C 138: MOV 60(R2), CUR_TIME : 1878 
OOAA C6 B4 00120 CLRW = RSP+ + 1879 | 
000000006 EF 00 FB 00124 CALLS #0, GETQUI_SERVICE : 1880 | 
OOAC (6 50 D0 00128 14$ MOVL RO, RSP+4 : 
69 00 FB 00130 CALLS #0, UNLOCK_QUEUE_FILE > 1881. 
00000000G_ EF 00 FB pot 33 15$ CALLS #0, SEND SERVICE_RESPONSE ; 1882) 
FEBO C6 FESO C6 CO O013A 168 ADDL2 DIAG_COURT, DIAG~COUNT+48 > 1889. 
FEBG 86 C6 FE54 C6 CO 00141 ADDL2 DIAGTCOUNT+4, DIAG_COUNT+52 : 1890. 
FE8B C6 FE58 46 «CO 00148 ADDL2 DIAGCOUNT+8. DIAG-COUNT+56 : 1891 | 
FE8C C6 FE5C }=6C6sCCO «OO 14F ADDL2 DIAGCOUNT+12, DIAG_COUNT+60 : 1892 
FE9O «= C6 FE60 C6 CO 00156 ADDL2 DIAGCOUNT+16, DIAG~COUNT+64 + 1893 
FE94 «= C6 FE64 C6 CO 0015D ADDL2 DIAG-COUNT+20, DIAG-COUNT+68 > 1894 | 
FE9B = C6 FE68 C6 CO 00164 ADDL2 DIAG COUNT+24, DIAG-COUNT+72 + 1895 | 
FE9C §=— C6 FE6C C6 CO 0016B ADDL2 DIAG-COUNT+28, DIAG~COUNT+76 + 1896 | 
2€ Ab D7 00172 DECL  MBX_MESSAGE COUNT + 1902 
36 FO AG 01 €2 00175 BBSS #1, FLAGS, T7$ : 1903 
7E 7C OO17A CLRQ  =(SP) + 1915 
7E 7C€ 0017C CLRQ =(SP) : 
7E 0400 8F 3¢ 00176 MOVZWL #1024, -(SP) ; 
O7FO C6 9F 0018 PUSHAB MBX BUFFER ; 
7E D4 00187 CLRL = = (SP) ; | 
0000v CF 9F 00189 PUSHAB MAILBOX_AST ; | 
O7E8 C6 9F 0018D PUSHAB MBX_I0SB ; 
31 Db 00191 PUSHL #49 F 
O7E4 C6 DD 00193 PUSHL  MBX_CHAN ; 
7E D4 00197 CLRL. = ; 
000000006 00 OC FB 00199 CALLS #12, SYS$QI0 ; 
0 50 £8 OO1A BLBS STATUS, 17$ : 1916 | 
30 DD OO1A3 PUSHL STATUS ; 
—E D4 001A5 CLRL. = ; | 
0004844C 8F DD OO1A7 PUSHL #296012 ; | 
67 03 FB OO1AD CALLS #3, LIBSSIGNAL ; 
04 00180 17$: = RET : 1918. 
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SIDE EFFECTS: 
NONE 


919 ROUTINE MAILBOX_AST: NOVALUE= 
921 'e¢ 
S ; ! 
% ' FUNCTIONAL DESCRIPTION: 
924 ' This is the completion AST routine for a mailbox read. 
4 2 } the message just read and queues another read. 
927 i INPUT PARAMETERS: 
a 3 } NONE 
0 1! IMPLICIT INPUTS 
1 : MBX_10SB8 - I0SB for read. 
3 MBX _BUFFER - Buffer containing data. 
34 i OUTPUT PARAMETERS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
NONE 
i - 


BEGIN 
LOCAL 
STATUS; ' Status return 
IF aoe -MBX_10SB(0] 
SIGNAL (JBC$_REAJBCMBX OR STSSK_ERROR, 0, .MBX_IOSBL[0]) 


IF .MBX_BUFFERCMSG_W_TYPE] EQL MSG$_TRMUNSOLIC 
OR :MBX~BUFFERCMSG-W-TYPE] EQL MSG$~CRUNSOLIC 


THEN 
UNSOLICITED_INPUT() 
LSE 


ELS 
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It processes 


961 

386 BEGIN 

96 SCHEDULE _NONAST(MAILBOX_NONAST, .MBX IOSBL1] + 8, MSX_IOSB); 
964 MBX_MESSAGE_COUNT = .MBR_MESSAGE_COUNT +1; 
965 END; 

966 

967 : 

308 Queue another read from the mailbox. 

970 IF .MBX_MESSAGE_COUNT LSSU JBC$K_MAXBUFMSG 

971 THEN 

378 BEGIN 

97 STATUS = $010( 

974 FUNC=10$_READVBLK, 

975 CHAN=.MBR_CHAN, 
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° 18-3 Sep =1982 90: 90: ¢é JOBCTL.SRCJCONTROL.B32;4 ° iif 
1376 10SB=MBX_I10SB, 
197 ASTADR=MAILBOX_AST, 
1978 P1=MBX_BUFFER, 
1979 P2=ZALCOCATION(MBX FER)); 
1380 —" »STATUS THEN S] er ti (JB BCS. REAJBCMBX OR STSS$K_SEVERE, 0, .STATUS); 
1336 E 
198 FLAGSCFLAGS_V_READ_POSTED] = FALSE; 
1984 1 END; 


000C 00000 MAILBOX_AST: 
WORD 


Save R2,R3 3: 1919) : 

53 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R3 : | ; 

52 00000000' EF 9E 00009 MOVAB MBX_IOSB, R2 : : 

10 62 £8 00010 BLBS MBX-I0SB, 1$ > 1953) : 

7E 62 3C 00013 MOVZWL MBX “10SB, -(SP) : 1955) : 

7E D4 00016 CLRL (SP : : 

0004844A 8F DD 00018 PUSHL #3560 : 3 

63 03 FB OOO1E CALLS # OT BSSIGNAL : : 

2B 11 00021 BRB 4 : : 

01 08 A2 B61 00023 1$: CMPW MBX_BUFFER, #1 ; 1957) : 

06 13 00027 BEQL : 3 

02 08 A2 Bi 00029 CMPW MBX_BUFFER, #2 : 1958) : 

09 12 0002D BNEQ : : 

000000006 _ EF 00 FB 000¢F 2$: CALLS #9, UNSOLICITED_INPUT : 1960 | ; 
16 11 00036 BRB 4$ : : 

52 DD 00038 3$: PUSHL R2 ; 1963) : 

7E 02 A2 3C OO03A MOVZWL MBX_IOSB+2, -(SP) : | : 

6E 08 CO 0003E ADDL2 #8,~ (SP) : | ; 

FEOA CF 9F 00041 PUSHAB MAILBOX NO : ; 

FDAA CF 03 FB 00045 CALLS #3, SCHEDULE NONAST ; | F 
F844 (C2 D6 0004A INCL MBX_MESSAGE_COUNT 3 1964) 3 

00000064 =F F844 «= C2—s«é#D1 sCOO04E 4S: CMPL MBX-MESSAGE_COUNT, #100 : 1970 3 
32 1— 00057 BGEQU 5$ : : 

E 7C 00059 CLROQ -(SP) : 1979 : 

7E 7C 00058 CLRQ  =(SP) : : 

7E 0400 8F 3C 0005D MOVZWL #1024, -(SP) 3 : 

08 <A2 OF 00062 PUSHAB MBX BUFFER : : 

7E D4 0006 CLRL -(SP) : : 

96 AF OF 90067 PUSHAB MAILBOX_AST : : 

52 DD 0006A PUSHL R2 : : 

31 DD 0006C PUSHL #49 : : 

FC A2 DD O006E PUSHL MBX_CHAN : : 

7E 04 00071 CLRL ~ : : 

000000006 00 OC FB 90075 CALLS #12, SYS$QI0 3 3 
13 50 €8 OOO7A LBS STATUS, 6$ > 1980 | : 

50 DD 90070 PUSHL TATUS : | : 

7E D4 0007F CLRL : | : 

0004844C 8F DD 00081 PUSHL #296012 : : 

63 03 FB 00087 CALLS #3, LIBSSIGNAL : 3 

4 0008A RET ; 1970. : 

F208 C2 02 8A 00088 5$: BICB2 #2, FLAGS > 1983) 3 
4 00090 6$: RET ; 1984 | : 


CONTRO. Main control logic 


; Routine Size: 145 bytes, Routine Base: CODE + O4FF 


1g 


Sep- 
Sep- 


1986 93:99:38 


AX-11 a 
JOBCTL.S 


neScont 


2.Vv4.0- 
NTROL. aS 


se a 


, 
j 
| 
| 
} 
| 
| 
i 


Be Be Be Be Oe Se Oe Oe Se Be Oe Se Be Be Be Se Se Be Se we, Se Fe Se Se Se Se) Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se See Ge Se Se Se Se Se Se Se Se ee we 


ie 
Main control logic 16-Sep-1984 00:4 AX-11 Bliss-32 V4.0-742 P .] 
85 ° 187308713 4 90:90:88 JOBCTL.SRCICONTROL.B32;4 oa AY 


ra 
oz 


ne 1986 } GLOBAL ROUTINE SIGNAL_FILE_ERROR(MESSAGE,FAB,FRAB): NOVALUE= ; 
714 19 ; 1 !+ ‘ 
715 1988 1! ‘ 
re 1989 1 ! FUNCTIONAL DESCRIPTION: ’ 
ate 1 : This routine handles signalling of file-related errors. : 
719 1338 1 ! INPUT PARAMETERS: ; 
720 1995 1! MESSAGE - Message code to be signalled. . ‘ 
721 1994 1! - FAB for the file, to obtain the file specification. ‘ 
7 ¢ 1995 1! FRAB - FAB or RAB that sustained the error, to obtain ; 
7 1996 1! STS and . ‘ 
724 1997 1! : 
725 1998 1! IMPLICIT INPUTS: ; 
726 1999 1: NONE | : 
727 000 1! : 
728 001 1 ! OUTPUT PARAMETERS: : 
94 002 1! NONE 

730 003 1! 

731 004 1 ! IMPLICIT OUTPUTS: 

er 2005 1! NONE 

7 006 1! 

734 007 1 | ROUTINE VALUE: | 

735 008 1! NONE 

736 2009 1! 

737 sort 1 ! SIDE EFFECTS: 

738 O17 7: Message signalled. 

739 sole 1! 

740 2013 1 !-- 

741 2014 1 

re 2015 2 BEGIN 

74 2016 2 MAP : 

744 2017 2 FAB: REF BBLOCK, ! Pointer to FAB 

745 2018 2 FRAB: REF BBLOCK; ! Pointer to FAB or RAB 

746 2019 2 LOCAL 

747 2020 § NAM: REF BBLOCK, ! Pointer to NAM block eet | 

748 2021 DESC: VECTORC2); ! Descriptor for file specification 

749 $058 

750 02 

751 024 ' Set up the file name descriptor. 

Pg 025 : 

75 026 NAM = .FABCFABSL_NAM); 

754 2027 2 IF .NAMCNAMSB_RSC) NEQ 0 | 

755 74 THEN 

756 OS BEGIN 

757 030 peste} = .NAMCNAMSB_RSLJ; 

758 031 DESCL1J] = .NAMCNAMSL-RSA]; | 

759 036 END 

760 03 ELSE IF .NAMCNAM$B_ESL] NEQ 0 

761 034 THEN 

76 035 BEGIN 

76 036 pesth = .NAMCNAM$B_ESLJ; 

764 8 DESCCL1] = .NAMLNAMSL_ESAJ; 

765 038 END 

706 039 ELSE 

76 040 BEGIN 

768 041 DESCCO] = .FABLFABSB_FNS); 


— a 


r 7 
| Kt | 
CONTR Main control logic 16-Sep-1984 00:00:4 AX=11 Bliss-32 V4.0-742 P 
“YOe-008 . 18=86b-1984 19:57:86 EddacTL SRE ScONTROL -B52¢4 ase a) 
3 768 4 DESCL1] = .FABLFABSL_FNA]; | 
i; 70 4 END; 
: 7 sf | 
; 718 94 ; : Signal the message. 
: 775 048 2 SIGNAL(.MESSAGE, 1, DESC, .FRABCFABSL_STS], .FRABCFABSL_STV]); | 
s 7% 04° 1 END; 


; Routine Size: 78 bytes, Routine Base: CODE + 0590 


| 
0000 00000 «ENTRY SIGNAL_FILE_ERROR, Save nothing : 1985 
5E 08 C2 90002 SUBL2 #8, SP : 
51 08 AC DO 0000 MOVL AB : 2026 
50 28 Ail DO 00009 MOVL  40(R1), NAM : 
03 Ad 95 0000D TSTB  =—-_3(NAM) : 2027 
0B 13 00010 BEQL =s1$ : 
6E 03 AO 9A 00012 MOVZBL 3(NAM), DESC + 2030 
04 AE 04 Ad D0 00016 MOVL  4(NAM). DESC+4 > 2031 
19 11 0001B BRB 3$ > 2027 
0B AO 95 00010 1$: TSTB = 11 (NAM) > 2033 
0B 13 00020 BEQL 2$ ; 
6E 0B AO 9A 00022 MOVZBL 11(NAM), DESC ; 2036 
| 06 AE OC AO DO 00026 OVL  12(NAM), DESC+4 : 2037 
09 11 00028 BRB 3$ > 2033 
6E 34 Al OA 900¢0 2$: MOVZBL 52(&1), DESC > 2041 
04 AE ac = A—s«éi: 00031 MOVL  44(R1). DESC+4 + 2042 
50 OC AC DO 00036 3$: MOVL _FRAB, R : 2048 
7E 08 AO 7D 0003A MOVG 8(ROS, -(SP) : 
08 AE 9F OOO3E PUSHAB DESC : 
01 DD 00041 PUSHL #1 ; 
| 04 AC DD 00043 PUSHL MESSAGE ; 
| 000000006 00 05 FB 00046 CALLS #5, LIBSS'GNAL : 
04 0004D RET : 2049 


---- Ee 
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1 ' 
Main control logic IB-5e -1984 00:00:42 AX-11 Bliss-32 V4.0-742 e 1) 
' 18=$ep-1984 12:07:86 Loact“SReScONTROL -852s4 ase 8) 


; 778 050 1 ROUTINE MAIN_HANDLER_ACTION(MSG_DESC)= 
; 779 051 1 
: 780 026 1 !e+ 

3; «6781 0 1! 
3; 7 054 1 ! FUNCTIONAL DESCRIPTION: 
; 78 055 1! This is an action routine for the SPUTMSG that issues a signalled 
; 7 B28 74 message to the system console. It writes the record to the operator 
: 785 O57 1: via OPCOM or via broadcast. 
: 786 058 1! 
; 787 059 1 =! INPUT PARAMETERS: 
; 4 : 544 : } MSG_DESC - Descriptor for message. 
; 790 666 1 ! IMPLICIT INPUTS: | 
; 791 0635 1! NONE 
; 79 064 1! 
s; 065 1 ! OUTPUT PARAMETERS: 
3: 796 066 1! NONE 
; 795 067 1! 
; 796 068 1 ! IMPLICIT OUTPUTS: 
: 797 069 1 NONE | 
; 798 070 1! 
: 799 071 1! ROUTINE VALUE: 
; 800 O76 1} FALSE, to signal SPUTMSG not to write the message. 
; 801 2075 1! 
; 80 Sone 1 ! SIDE EFFECTS: 
; 80 076 1! NONE 
; 804 2076 1! 
; 805 sore 1 !e< 
: 806 078 1 | 
; 807 2079 BEGIN 
; 808 2080 P 
3; @ 2081 MSG_DESC: REF BBLOCK; ! Descriptor for message text 
; 810 $0ee § LOCAL | 
; 811 08 LENGTH: WORD, ! Length of message, minimized 
; B12 2084 é OPC_BUFFER: BBLOCKCSBYTEOFFSET(OPCSL_MS_TEXT) + 132], 
3; BY 085 ! Buffer for OPCOM message 
; 814 086 2 OPC_DESC: VECTORC2), ' Descriptor for message buffer 
; 815 087 STATUS; ! Status return 
; 816 088 
; 817 089 
: ai8 3091 : Set up the OPCOM message buffer. 
. : j 
: 820 09 OPC_BUFFERCOPC$B_MS_TYPE] = OPC$_RQ_RQST; 
; 821 09 OPC~BUFFERLOPC$BI'S_ TARGET) = OPCSH_NM_CENTRL; | 
; 8 é 094 2 OPC“BUFFERLOPC$W-MS-STATUS] = 0; 
; as 095 OPC_BuUF OPCS$L_MS RQSTID) = 0; 
> B26 0 LENGTH = .MSG ESC BSCS$wW_LENGTH); | 
; 825 09 IF .LENGTH GTRU 132 THEN LENere = 132; 
; 826 098 ¢ VE ( ' NGTH, .MSG_DESCCDSCSA_POINTER], OPC_BUFFERCOPCS$L_MS_TEXT]); | 
; 827 099 2? opc_pesct = $BYTEOFFSET(OPCSL_AS_TEXT) + .LENGTH; 
; 828 100 @ OPC“DESCL1) = OPC_BUFFER; 
: 856 103 
: ty 198 ! Try to send the message by OPCOM. If this fails, send a broadcast to the 
3 HG 108 system console. 
; #834 106 STATUS = SSNDOPR(MSGBUF=OPC_DESC); 
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4 1 
CONTR Main control logic 16-Sep-1984 00:00:4 AX-11 Bliss-32 V4.0-74 P 
s 18: > gf 90:90:88 t : — Aid 


04-00 Sep-19 JOBCTL.SRCIJCONTROL .B32;4 
ls 5 19? IF NOT .STATUS OR .STATUS EQL OPCS$_NOPERATOR 
: 83 p 5109 SBRKTHRU( | 
is ® P 2110 MSGBUF=.MSG_DESC, 
- 9 P 2111 SENDTO=OPA0- DESC 
> B40 P 118 SNDTYP=BRKS$C_DEVICE, | 
+ B41 11 TIMOUT=10); 
ie He | 
E nee 118 Return FALSE, to signal $PUTMSG not to write the message. 
B46 a118 FALSE | 
> 847 119 7 END; 
| 
.EXTRN SYSSSNDOPR, SYS$BRKTHRU 
OOFC 00000 MAIN_HANDLER_ACTION: 
.WORB Save R2,R3,R4,R5,R6,R7 : 2050 
SE FF6C CE 9E 00002 MOVAB =148(SP5, : 
08 AE 0103 8F 3¢ 00007 MOVZWL #259, OPC_BUFFER : 2092 
0C AE D4 0000D CLRL © OPC_BUFFER+4 : 2095 
57 04 AC DO 00010 MOVL § MSG-DESC, R7 > 2096 
56 67 BO 00014 MOVW (R7) LENGTH ; 
0084 &F 56 B1 00017 CMPW LENGTH, #132 : 2097 
04 1B 0001C LeEQqu§ 1$ ; 
56 84 BF 9B OO01E MOvZBl #132, LENGTH ; | 
10 AE 04 87 56 ¢8 00022 1$: OVC3 LENGTH, a4(R7), OPC_BUFFER+8 : 2098 
6E 56 3C 00028 MOVZWL LENGTH, OPC_DESC : 2099 
6E 08 CO 00028 ADDL2 #8, OPC_DES : 
04 AE 08 AE 9E 000¢E MOVAB OPC_BUFFER, OPC_DESC+4 F 3100 
7E D4 000 CLRL = (SP) : 21 
04 AE 9F 00035 PUSHAB OPC_DESC ; 
000000006 00 02 FB 00038 CALLS #2, SYSS$SNDOPR ; 
09 50 €9 0003F BLBC STATUS, : 2107 
00058061 8F 50 01 00042 CMPL STATUS. #360545 F 
1A 12 0004 BNEQ 3$ ; 
7E 7C 00048 2$: CLRQ = =(SP) > 2113 
OA DD 00040 PUSHL #10 : 
7E 7C OO04F LRQ. = (SP) ; 
20 DD 90051 PUSHL #32 ; 
7E 01 7D 00053 ova. #1, _=(SP) : 
FEO CF 9F 00056 PUSHAB OPAQ_DESC F 
57 DD 0005A PUSHL R7 ; 
7E 04 0005¢ CLRL. = (SP) ; 
| 000000U0G 00 08 FB 0005E CALLS #11, SYS$BRKTHRU : 
0 04 00065 3s: CLRL = RO : 2119) 
04 00067 RET ; 


; Routine Size: 104 bytes, Routine Base: CODE + OSDE 


Be Be Oe Oe Be Oe Be Oe Se Be Se Be Se Be Se Be BH Se Oe Se Ge He FH Se Be SH Se Se Be Se Se Be Be Ge Se Se Se Se Se Se Se Oe Se Be Oe Os Be Se Se Se Se Se Se Se Beas 


PDAAAAAR MAMAN AAAI ES BE ES EE AAA AAA A AALAND 


ee ee ea ed ed ed od od = = do 8 = = 8 = 8 wd = = = I 


o 
SARIN S SSIS AFR TS SONS ARUN S Sa NOUS WN 0 OO NOU EAR OOONAUES WN O 


NNN UNO O 


N 1 
control logic 16-Sep-1984 00:00:4 AX-11 Bliss-32 V4.0-742 
. 13-88-1982 199988 JOBCTL. SRCICONTROL B32; 4 

ROUTINE MAIN_HANDLER(S1IG,MECH)= 
'+¢ 
' 
FUNCTIONAL DESCRIPTION: 

This routine is the condition handler for the main routine. It 

intercepts signals and writes the message to the operator. 


INPUT PARAMETERS: 
Standard VMS condition handler parameters. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


SS$_CONTINUE 


SIDE EFFECTS: 
If the condition is fatal, the image exits. 


BEGIN 

MAP 
S1G: REF BBLOCK, ! Signal parameters 

aces MECH: REF BBLOCK; ! Mechanism parameters 
OPC BUFFER: SBBLOCKCOPCSK_SHUTDOWN_MIN_SIZEJ, ! Data structures 
OPC_DESC: VECTOR C2) ! to support 

PRESET (CO) = OPCSK_SHUTDOWN_MIN_SIZE, ! cluster-wide 
C1] = OPC_BOFFER); ! take down 


! Adjust the signal parameter count to remove the PC and PSL, and call SPUTMSG 
to issue the message to the operator. 


SIGCCHFSL_SIG_ARGS] = .SIGCCHFS$L_SIG_ARGS) - 2; 
SPUTMSG(MSGVET=.S1G, ACTRTN=MAIN_HANDLER_ACTION); 


! If the condition is not a job controller message, force the severity to 

fatal. It must be a real system exception. 

if -BOLOCRESIGECHFOL_SI6 WANE), STSSV_FAC_NO] NEQ JBCS$_FACILITY 
BBLOCKCSIGCCHFSL_SIG_NAME], STSSV_SEVERITY] = STSSK_SEVERE; 

: Turn $ENQ/$DEQ errors reported via the JBC$_COMREMJBC code into fatal errors. 

IF .SIGCCHFSL_SIG_NAME] EQL (JBCS$_COMREMJBC OR STSSK_ERROR) 


roe iS 


| 
| 
| 
| 
| 
| 


' 
i 


2 
| CONTR Main control logic 18-5e -1984 00:00:4 AX-11 Bliss-32 V4.0-742 Page 34 D 
“Yoer005 . 1 ~8ep-19 4 900038 JOBCTL.SRCJCONTROL .832;4 . aa Vv 
; 906 177 THEN 
: ait 178 BBLOCKCSIGCCHFSL_SIG_NAME], STSS$V_SEVERITY] = STSSK_SEVERE; 
: 909 180 
; 910 181 ! If the exception was fatal, exit the image. Otherwise, signal the error and 
: ae : ¢ continue. Note that certain control flags can alter this behavior. 
; $18 184 DIAG_TRACEL14) = .SIGCCHFSL_SIG_NAMEJ; ! te#** diagnostic info eetee 
; 3i2 ; 5 AF PeLock SIGCCHFSL_SIG_NAME], STSS$V_SEVERITY] EQL STSS$K_SEVERE 
: 916 189 BEGIN 
; 917 188 
3 213 189 
; Wi 190 ! For debugging purposes, conditionally force a synchronous cluster-wide 
; $31 133 crash. 
3 92¢ 138 ; if -FLAGSCFLAGS.V_ CLUSTER, SCRAM] THEN 
; 924 195 4 OPC_BUFFERCOPCSB_RQSTCODE) = OPC$_X SHUTDOWN; 
; 925 2196 4 OPC" BUFFERCOPCSL_RQ_OPTIONS] = OPCSA_CLUSTER; 
; 926 4h 44 5 IF (QORK_AREAC2) = S$SNDOPR(MSGBUF=OPC_DESC)) 
; 44 198 : THEN WATLE TRUE DO 
; 36) 3200 ? SHIBER; ' Wait for system to crash... 
: 931 2202 END; 
3 o36 220 
; 93 2204 
; 4 $so2 } Delete all symbiont processes. 
; 936 g207 DELETE_SYMBIONTS(); 
: 938 2209 
: a2) $si¢ : Close the accounting file. 
; 94 e212 CLOSE _ACCOUNTING_FILE(); 
: 9% $514 
3 9446 2215 ! Close the system job queue file unless it is desired to leave it open 
3 oe? $sié for debugging purposes to preserve internal RMS data structures. 
; v4 18 IF NOT .FLAGSCFLAGS_V_LEAVE_OPEN] THEN SCLOSE(FAB=QUEUE_FAB); 
> 949 0 
; 950 $54 ! Conditionally bug check the system instead of aborting/restarting the job 
; 82) $56 controller. 
; 938 B 3 if .FLAGSCFLAGS_V_BUGCHECK] THEN SCMKRNL(ROUTIN=BUG_CHECK_SYSTEM); 
: 955 6 
: 329 $f Make the process name null to avoid a name conflict with the new process. 
; 938 ; 4 $SETPRN(); 
: 960 1 
3 +d § ¢ Create a new job controller process. 
| 


4 


2 
Sep-1984 AX-11 Bliss-32 V4.0-742 Page 35 D 
mg 1EcSE0n 198 90:00:42 YT oLiss8z ye: O72 ee 
: 963 P 4 SCREPR 
; 964 P 5 IRAGE=SDESCRIPTOR(* SYSSSYSTEM: JOBCTL.EXE'), 
; 965 P $ INPUT=0P 
i 966 P OUTPUT=OPA0 obese, 
; © B : ERROR=OPA0_BESC 
; 96 r PRVADR=JBC PRIVILEGES, 
; 4 P 2240 QUOTA=JBC_GUOTAS 
; 970 P 2241 PRCNAM=JO8 CONTROL DESC, 
: 971 P 224 pasen is. Jet PRIORIT 
: 97 P 224 STSFLG= MAGE E DUMP USTSFLG, 
s 97 44 ulCs. Sat. vic 
oe i 
; 976 st ! Resignal the error to allow last chance handler to write the dump. Then 
; 977 48 ! the process will exit after the dump has been written. In addition, 
; 978 249 ! further display of the message will be inhibited so that it is displayed 
3 464 $20 only once. 
; (981 $236 SIGCCHFSL_SIG NAME} = .SIGCCHFSL_SIG_NAME] OR STSS$M_INHIB_MSG; 
; 98 $52 RETURN SSS_RESIGNA 
; 98 254 END; 
; 984 2255 
: #985 256 
; 986 337 SS$_CONTINUE 
; «987 58 1 END; 
43 42 GF GA 3A 4D 45 54 53 59 53 246 53 59 53 00646 P.AAR: .ASCII \SYSSSYSTEM:JOBCTL.EXE\ : 
45 58 45 2—€ 4C 54 00655 3 
00658 -BLKB 1 
00000015 0065C P.AAQ: .LONG 21 s 
00000000' 00660 -ADDRESS P.AAR : 


-EXTRN SYSS$PUTMSG, SYSSCLOSE 
-EXTRN SYSSCREPRC 


001C 00000 MAIN_HANDLER: 
WORD 


Save R2,R3,R4 : 2120, 
F CF 9E 0000 MOVAB OPAO_DESC, R4 ; 
53 00000000" EF i 0000 MOVAB FLAGS R3 ; 
20 C2 0000E SUBL2 #32, SP ; 
1A DD 00011 PUSHL #26 : 2156. 
04 A 08 AE 43 Bots MOVAB OPC_BUFFER, OPC_DESC+4 i 
5 04 AC OD 001 MOVL SIG, R 3: 2162 
62 2 ce 0001C SUBL2 #2, (R2) : 
—E 7C OOO01F CLRO. 0 = (§P) > 2163. 
FF55 CF 9F 00021 PUSHAB MAIN_HANDLER_ACTION 3 
52 DD 00025 PUSHL ; 
000000006 99 04 FB 00027 CALLS #4, SYSSPUTMSG ; 
2 04 CO 0002E ADDL2 #4. R2 : 2169. 
04 02 A2 00 £D 00031 CMPZ2V #0. #12, 2(R2), ; | 
05 13 00037 BEQL '1$ ; 
62 03 00 04 FO 00039 INSV #4, #0, #3, (R2) : 2171. 
00048412 8F 62 D1 900 E 1$: CMPL (Rd), #295954 > 2176. 
0 iF 004 BNEQ : | 
62 03 00 04 FO 00047 INSV #4, #0, #3, (R2) : 


2178 | 


D m. 
CONTR Main control Logic 16-Sep-1984 AX=11 Bliss-32 V4.0-742 Page 36 
you-005 ° 1878 Sep-1984 2 93: 90: ¢g JOBCTL.SRCIJCONTROL.B32;4 . (10) 
FE38 DO 0004¢ 28: MOVL (R2) DIAG, TRACE 56 : 2184 
04 62 §3 FD 09 1 CMPZV , 8, + 2185 
0 g BEQL : 
009A 31 000 BRw : 
25 oe A3 01 9 8 8 3$ BBC bg BS 3 2193. 
AE 10 0 006 MOVB i i, + 2195 
OE AE 91 DO 00064 MOVL opt CABUrEER +6 + 2196 
‘ bs 0068 CLAL -(SP) 3 2197 
04 AE 9F 0006A PUSHAB OPC_DESC 3 
000000006 0 9 Fe 4 CALLS ace SYSSSNDOPR : 
FECC C¢ DO 00074 MOVL RO, WORK_AREA+8 : 
4 50 £9 Babe LBC RO, 3 
000000006 00 oy FB 445 43 CALLS #0, SYSSHIBER 3; 2199 
F711 0008 BRB 4$ : 2198 | 
00000000G_ EF 00 FB 00085 5$ CALLS #0, DELETE_SYMBIONTS 3: 2207. 
000000006 _ EF 00 FB a4 CALLS #0, CLOSE_ACCOUNTING_FILE ; 2212. 
0B 02 A3 O¢ EO 0009 BBS #2 ELAGST2. 6$ 3; 2218 
0114 ¢3 9F 00098 PUSHAB Qu UE_FAB : 
000000006 00 01 FB pnone CALLS SYSSCLOSE 3 
0D 02 A3 03 £1 OOOA3 6$: BBC +3" FLAGS+2, 7$ 3 2224 
7F D4 000A8 CLRL -($P : 
0000v CF 9F OOOAA PUSHAB BUG_CHECK SYSTEM : 
000000006 00 02 FB OOOA CALLS #2, SYSSCAKR 3 
7E D4 00085 7S: CLRL -(SP 3 2229, 
000000006 00 01 FB 00087 CALLS #1, SYSSSETPRN : | 
re D4 OOOBE CLRL -(5P : 2264) 
04 a3 DD 000C0 PUSHL IMAGE _DUMP_STSFLG : 
ze D4 000C3 CLRL (SP) : 
0110 ¢3 dd 000C5 PUSHL JBC. VIC : 
00cO §=6C3)—sD 000C9 PUSHL JBC -PR IORITY : 
2C «=6AG «OOF 000CD PUSHAB JOB_CONTROL_DESC : 
oocc C3 9F 000D0 PUSHAB “QUOTAS : 
00C64 C3 9F 000D4 PUSHAB JBC~PRIVILEGES : 
54 DD 00008 PUSHL R4 F 
54 DD OOODA PUSHL R4 : 
54 DD 000DC PUSHL R4 : 
0644 C4 9F OOODE PUSHAB P.AAQ : 
7E D4 O00E2 CLRL =(S : 
000000006 00 OD FB OO0E4 CALLS #13, SYSSCREPRC 3 
03 Ae 10 88 OQOOEB BISB2 #16, 3(R2) 3: 2252 | 
50 0918 8F 3C OOOEF MOVZWL #2328, RO : 2253 | 
04 O00F4 RET : 
50 01 DO OOOFS 8$ MOVL #1, RO : 2258) 
04 000F8 RET : 


; Routine Size: 249 bytes, Routine Base: CODE + 0664 


SIDE EFFECTS: 
The system crashes!!! 


CONTR Main control Logic 1b-5e Sep-1984 AX-11 Bliss-32 V4.0-7 Page 37 
you-005 r3eer13be 99:99:88 «= Eabacte see Sconrhor asec aD 
; UG_CHECK_SY : NOVALUE= 
388 23 ! ROUTINE BUG_CHECK_SYSTEM: NOVALUE 
: 991 61 1 144 
5 838 86 1 i 
; Ww 65 1 ! FUNCTIONAL DESCRIPTION: 
3 232 rt: } This routine crashes the system via a bug check. 
3 pas 66 1 ! INPUT PARAMETERS: 
; 6 1! NONE 
; 998 68 1! 
; .999 $? 1 ! IMPLICIT INPUTS: 
; 1000 . 7 NONE 
; 1001 7hCUS 
H O08 7 1 ! OUTPUT PARAMETERS: 
3; 100 75 1! NONE 
; 1006 7% =«1« 
; 1005 75 1°! IMPLICIT OUTPUTS: 
; 1006 766«421+«S NONE 
; 1007 7 ae 
; 1008 1 ! ROUTINE VALUE: 
3; 1009 2 1! NONE 
. . 3 
; $58) 1 | 
: 2 1% 
: r4 1; 
: 2 1 3 
$oae 2 
3 2 2 
; 2 1 


—> —) sb 2) bd a a tb tb 2b ob ob a bd a a 


lelelelelelelejlolo) 
22 SSS 
DWNOUSWN—O 
0000 CD CD CO CO CD CD OO ~V 
COONAULSWN OO 


BEGIN 
BUST CHECK CUNXINTEXC); 


.EXTRN BUGS_UNXINTEXC 
0000 00000 BUG_CHECK_SYSTEM: 
QoRD 


-WO Save nothing ; 2259 

FEFF 00002 BUGW 3 2287 | 
0000* 00004 -WORD <BUGS_UNXINTEXC!4> : 
04 00006 RET ; 2288 


; Routine Size: 7 bytes, Routine Base: CODE + 075D 


= 


| CONTR Mai trol Logi 
Coe . n control Logic 
; 1020 9 1 END 
1684 $558 0 Et Spon 
: PSECT SUMMARY 
; Name Bytes 
+ COMMON 50 024 NOVEC, WRT, 
; CODE 1892 NOVEC.NOWRT, 


Library Statistics 


Bee rr at Sinn erg gd 5-2 Syabol$ eoooe=-- Pages Processing 

: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 150 0 1000 00:01.4 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CONTROL/OBJ=OBJ$:CONTROL MSRC$:CONTROL/UPDATE=(ENH$: CONTROL) 
Size: 1542 code + 5374 data bytes 
Run Time 0:30.8 


3 Slaseed fHaer 1347.7 
; Lines/CPU Min: 4458 

; Jey nh pi 48716 

; ry Used: 348 pages 
3 ome ation Complete 


1e$S0-1986 99:99:42 YABsE LMeScSR AS, 


~-EXTRN LIBSSIGNAL 


Attributes 
RD ,NOEXE,NOSHR, LCL, REL, OVR, ea ens) 
RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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T CORPORATION 
PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


0191 


019 AH-BT13A-SE ) a 


IGIT 
ONFI 
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